home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / C Guide / Time_module / IconClock.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-09-20  |  59.5 KB  |  1,534 lines
  1.  
  2. #include "includes/Clock.h"
  3.  
  4.  
  5. /********************************************************************/
  6.  
  7. struct Gadget gadgets[] =
  8. {    
  9.      {  // the dragbar
  10.         &gadgets[1],  
  11.         12, 0, -24, 8, 
  12.         GFLG_GADGHNONE | GFLG_RELWIDTH,
  13.         GACT_RELVERIFY, GTYP_WDRAGGING,
  14.         NULL, NULL, NULL, NULL,
  15.         NULL, NULL, NULL
  16.      },
  17.      {  // the close gadget
  18.         &gadgets[2],
  19.         0, 0, 12, 8,
  20.         GFLG_GADGHNONE, 
  21.         GACT_RELVERIFY, GTYP_CLOSE,
  22.         NULL, NULL, NULL, NULL,
  23.         NULL, NULL, NULL
  24.      },
  25.      {  // the tofront/toback gadget
  26.         NULL,
  27.         -12, 0, 12, 8,
  28.         GFLG_GADGHNONE | GFLG_RELRIGHT,
  29.         GACT_RELVERIFY, GTYP_WDEPTH,
  30.         NULL, NULL, NULL, NULL,
  31.         NULL, NULL, NULL
  32.      }
  33. };
  34.  
  35. enum
  36. {
  37.     GADGET_ID_TEXT,
  38.     GADGET_ID_HOURS,
  39.     GADGET_ID_MINUTES,
  40.     GADGET_ID_STRING,
  41.     GADGET_ID_OK,
  42.     GADGET_ID_CANCEL
  43. };
  44.  
  45.  
  46. struct TagItem slider[] =
  47. {
  48.     GA_RelVerify, TRUE,
  49.     GTSL_Max, 59,
  50.     TAG_DONE
  51. };
  52.  
  53. ObjectDef winobjects[] =
  54. {
  55.    { 
  56.       OD_GADGET, TEXT_KIND,
  57.       { 0, 0, SIZE_MAXIMUM, 3 },
  58.       { 2, 2, -2, 0 },
  59.       MSG_ALARM, PLACETEXT_IN, 
  60.       GADGET_ID_TEXT, NULL
  61.    },
  62.    
  63.    {
  64.       OD_GADGET, TEXT_KIND,
  65.       { 0, 3, SIZE_MAXIMUM, 1 },
  66.       { 2, 4, -2, 4 },
  67.       NULL, PLACETEXT_IN,
  68.       GADGET_ID_STRING, NULL
  69.    },
  70.    {
  71.       OD_GADGET, SLIDER_KIND,
  72.       { 10, 4, SIZE_MAXIMUM, 1 },
  73.       { 2, 10, -2, 4 },
  74.       MSG_HOURS, PLACETEXT_LEFT,
  75.       GADGET_ID_HOURS, &slider[0]
  76.    },
  77.    {
  78.       OD_GADGET, SLIDER_KIND,
  79.       { 10, 5, SIZE_MAXIMUM, 1 },
  80.       { 2, 14, -2, 4 },
  81.       MSG_MINS, PLACETEXT_LEFT,
  82.       GADGET_ID_MINUTES, &slider[0]
  83.    },
  84.    
  85.    {
  86.       OD_GADGET, BUTTON_KIND,
  87.       { 0, POS_RIGHT_JUSTIFY, 10, 1 },
  88.       { 2, -2, -4, 4 },
  89.       MSG_OK, PLACETEXT_IN | BUTTONFLAG_OKAY_BUTTON,
  90.       GADGET_ID_OK, NULL
  91.    },
  92.    
  93.    {
  94.       OD_GADGET, BUTTON_KIND,
  95.       { POS_RIGHT_JUSTIFY, POS_RIGHT_JUSTIFY, 10, 1 },
  96.       { -2, -2, -4, 4 },
  97.       MSG_CANCEL, PLACETEXT_IN | BUTTONFLAG_CANCEL_BUTTON,
  98.       GADGET_ID_CANCEL, NULL
  99.    },
  100.          
  101.    {  OD_END }
  102. }; 
  103.  
  104. ConfigWindow cfgwin =
  105. {
  106.    { POS_CENTER, POS_CENTER, 30, 8 },
  107.    { 0, 0, 4, 20 }
  108. }; 
  109.  
  110.  
  111. /********************************************************************/
  112. // PROTOS
  113.  
  114. extern BOOL WriteConfig( ClockData *cd );
  115. extern BOOL ReadConfig( ClockData *cd );
  116.  
  117. void                 Deteach( struct Screen *screen);//, IPC_CMDData *idata );
  118. void        __saveds TimerClock( void );
  119. ULONG __asm __saveds clock_startup( register __a0 IPCData   *ipc,
  120.                                     register __a1 ClockData *cd  );
  121.  
  122. BOOL           HandleIDCMP( ClockData *cd ); 
  123. BOOL           DoMenu( ClockData *cd );
  124.  
  125. struct Window *OpenWin(  ClockData *cd );
  126. void           CloseWin( ClockData *cd );
  127.  
  128. void __asm     refresh_callback( register __d0 ULONG type,
  129.                                  register __a0 struct Window *win,
  130.                                  register __a1 ClockData * cd ); 
  131.  
  132. void           BorderDraw( ClockData *cd );
  133. void           PrintTime( ClockData *cd );
  134. void           About( ClockData *cd );
  135. void           GetSizes( ClockData *cd );
  136. void           FRequest( ClockData *cd );
  137. BOOL           PicRequest( ClockData *cd );
  138. void           DisableOther( PopUpMenu *popmenu, ULONG start, ULONG end, ULONG exclude );
  139. BOOL           GetBitMap( ClockData *cd, STRPTR name );
  140. void           BeepBeep( ClockData *cd );
  141. void           GetAlarm( ClockData *cd );
  142. BOOL           HandleOwnRequest( ClockData *cd );
  143. BOOL           HandleIPC( ClockData *cd );
  144. void           InitPopMenu( ClockData *cd );
  145.  
  146. /********************************************************************/
  147.  
  148. void Deteach( struct Screen *screen)//, IPC_CMDData *idata )
  149. {
  150.      ClockData *cd;
  151.           
  152.      if( (cd = AllocMemH( mempool, sizeof(ClockData))) )
  153.        {
  154.           cd->screen  = screen;
  155.           
  156.           cd->a4      =                    getreg( REG_A4 );
  157.           cd->module  = (struct Library *) getreg( REG_A6 );
  158.           cd->library = DOpusBase;
  159.                                        
  160.           ReadConfig( cd );
  161.           
  162.           cd->txtattr.ta_Name = cd->fontname;
  163.                     
  164.           if( !IPC_Launch(0, &clock_ipc, "Timer_Clock",
  165.                           (ULONG) TimerClock, 4000,
  166.                           (ULONG) cd, DOSBase)         )
  167.                FreeMemH( cd );                               
  168.        }   
  169. }
  170.  
  171. /********************************************************************/
  172.  
  173. void __saveds TimerClock( void )
  174. {
  175.      struct Library *DOpusBase; 
  176.      IPCData        *ipc;
  177.      ClockData      *cd;
  178.      
  179.      if (!(DOpusBase=(struct Library *)FindName(&((struct ExecBase *)*((ULONG *)4))->LibList,"dopus5.library")))
  180.          return;
  181.  
  182.      ipc = IPC_ProcStartup( (ULONG *) &cd, clock_startup);
  183.  
  184.      putreg( REG_A4, cd->a4 );
  185.  
  186.      if( !ipc )
  187.        {
  188.           IPC_Free( cd->ipc );
  189.           FreeMemH( cd ); 
  190.           return;
  191.        }
  192.      
  193.      WaitPort( cd->ipc->command_port );
  194.      if( HandleIPC( cd ) )
  195.        {
  196.           IPC_Free( cd->ipc );
  197.           FreeMemH( cd ); 
  198.           return;
  199.        }   
  200.       
  201.      OpenWin( cd );
  202.      
  203.      SetSoftStyle( cd->win->RPort, cd->itext[2].ITextFont->ta_Style, AskSoftStyle( cd->win->RPort));
  204.      
  205.      cd->day = 1;         
  206.      BorderDraw( cd);
  207.      PrintTime( cd );
  208.              
  209.      if( (cd->th = AllocTimer(UNIT_VBLANK, 0)) )
  210.        {
  211.           StartTimer( cd->th, 0, 900000 );
  212.           
  213.           while( TRUE )
  214.             {
  215.                cd->signals = Wait( 1 << cd->th->port->mp_SigBit |
  216.                                    1 << cd->notify_port->mp_SigBit |
  217.                                    1 << cd->ipc->command_port->mp_SigBit |
  218.                                    (cd->win ? 1 << cd->win->UserPort->mp_SigBit : 0) |
  219.                                    (cd->time_req ? 1 << cd->time_req->UserPort->mp_SigBit : 0) |
  220.                                    (cd->req ? 1 << cd->req->UserPort->mp_SigBit : 0) );
  221.                
  222.                if( HandleOwnRequest( cd) )
  223.                  {
  224.                     CloseConfigWindow( cd->time_req );
  225.                     cd->time_req = NULL;
  226.                  }
  227.                
  228.                if( cd->signals & 1 << cd->th->port->mp_SigBit )
  229.                  {
  230.                     GetMsg( cd->th->port );
  231.                     PrintTime( cd );
  232.                     StartTimer( cd->th, 0, 900000 );
  233.                  }
  234.                               
  235.                cd->running = 0;
  236.                  
  237.                if( cd->signals & 1 << cd->ipc->command_port->mp_SigBit )
  238.                  {
  239.                     cd->running = HandleIPC( cd );
  240.                                   
  241.                  }
  242.                            
  243.                if( cd->signals & 1 << cd->notify_port->mp_SigBit )
  244.                  {
  245.                     while( (cd->nmsg = (APTR) GetMsg(cd->notify_port)) )
  246.                       {
  247.                          if( cd->nmsg->dn_Type & DN_OPUS_QUIT )
  248.                               cd->running = TRUE;
  249.                               
  250.                          if( cd->win && (cd->nmsg->dn_Type & DN_OPUS_HIDE) )
  251.                            {
  252.                               cd->ibox.Left = cd->win->LeftEdge;
  253.                               cd->ibox.Top = cd->win->TopEdge;
  254.                               cd->ibox.Width = cd->win->Width;
  255.                               cd->ibox.Height = cd->win->Height;
  256.                               
  257.                               CloseWin( cd );
  258.                               cd->win = NULL;
  259.                               
  260.                               cd->day = 1;
  261.                                                                            
  262.                            }
  263.                          
  264.                          if( !cd->win && (cd->nmsg->dn_Type & DN_OPUS_SHOW) )
  265.                            {
  266.                               cd->screen = ((struct Window *) cd->nmsg->dn_Data)->WScreen;
  267.                               
  268.                               // FRAGLICH !! (wegen der Geschwindigkeit...)
  269.                                                             
  270.                               OpenWin( cd );
  271.                            }                        
  272.                          ReplyFreeMsg( (APTR) cd->nmsg );
  273.                       }                  
  274.                  }
  275.           
  276.                if( cd->running || (cd->win && HandleIDCMP(cd)) )
  277.                     break;
  278.                                           
  279.                if( cd->req && SysReqHandler(cd->req, NULL, FALSE) > -2 )
  280.                  {
  281.                     FreeSysRequest( cd->req );
  282.                     cd->req = NULL;
  283.                  }       
  284.              }        
  285.        }
  286.      CloseWin( cd ); 
  287.      
  288.      if( cd->time_req )
  289.           CloseConfigWindow( cd->time_req );
  290.         
  291.      if( cd->bm )
  292.           FreeBitMap( cd->bm );
  293.         
  294.      FreeTimer( cd->th );
  295.      
  296.      if( cd->sound )
  297.           DisposeDTObject( cd->sound );
  298.      
  299.      if( cd->alarm )
  300.           DisposeDTObject( cd->alarm );
  301.      
  302.      while( !IsListEmpty((struct List *) &cd->popmenu.item_list) )
  303.              FreeMemH( RemTail((struct List *) &cd->popmenu.item_list) );
  304.              
  305.      while( !IsListEmpty((struct List *) &cd->submenu) )
  306.              FreeMemH( RemTail((struct List *) &cd->submenu) );
  307.      
  308.      while( !IsListEmpty((struct List *) &cd->subtime) )
  309.              FreeMemH( RemTail((struct List *) &cd->subtime) );         
  310.  
  311.      CloseFont( cd->txtfont );
  312.          
  313.      if( cd->notify_port )
  314.        {
  315.           if( cd->notify )
  316.                RemoveNotifyRequest( cd->notify );
  317.                
  318.           while( (cd->nmsg = (APTR) GetMsg(cd->notify_port)) )
  319.                ReplyFreeMsg( (APTR) cd->nmsg );
  320.                
  321.           DeleteMsgPort( cd->notify_port );
  322.        }
  323.           
  324.      --cd->module->lib_OpenCnt;
  325.      IPC_Free( cd->ipc );
  326.      FreeMemH( cd );
  327.      clock_ipc = NULL;
  328. }
  329.  
  330. /********************************************************************/
  331.  
  332. ULONG __asm __saveds clock_startup( register __a0 IPCData   *ipc,
  333.                                     register __a1 ClockData *cd )
  334. {
  335.         struct Library *DOpusBase;
  336.         
  337.         putreg( REG_A4,cd->a4 );
  338.         cd->ipc = ipc;
  339.         DOpusBase = cd->library;
  340.         
  341.         if( !cd->screen )
  342.              UnlockPubScreen( NULL, (cd->screen = LockPubScreen(NULL)) );
  343.                       
  344.         if( !cd->txtattr.ta_YSize )
  345.              cd->txtattr.ta_YSize = cd->screen->Font->ta_YSize;
  346.          
  347.         if( cd->fontname )
  348.           {
  349.              if( Strnicmp(&cd->fontname[cd->running=strlen(cd->fontname)-5], ".font", 5) )
  350.                   strcat( cd->fontname, ".font" );
  351.           }
  352.         else
  353.              strcpy( cd->txtattr.ta_Name, cd->screen->Font->ta_Name );
  354.         
  355.         cd->txtfont = OpenDiskFont( &cd->txtattr );
  356.                           
  357.         if( !cd->itext[0].FrontPen )
  358.              cd->itext[0].FrontPen = 1;
  359.                                 
  360.         for( cd->running = 0; cd->running < 3; cd->running++ )
  361.           {
  362.              cd->itext[cd->running].IText     = &cd->ibuffer[cd->running][0];
  363.              cd->itext[cd->running].FrontPen  = cd->itext[0].FrontPen;
  364.              cd->itext[cd->running].BackPen   = cd->itext[0].BackPen;
  365.              cd->itext[cd->running].DrawMode  = cd->itext[0].DrawMode;
  366.              cd->itext[cd->running].ITextFont = &cd->txtattr;
  367.                          
  368.              if( cd->running < 2 )
  369.                   cd->itext[cd->running].NextText  = &cd->itext[cd->running+1];
  370.           }
  371.                           
  372.         GetSizes( cd );
  373.         
  374.         if( !cd->ibox.Left )
  375.           {
  376.              if( !(cd->flags & LEFT_PASSED) )
  377.                   cd->ibox.Left = DEFAULT_LEFT_EDGE;
  378.           }
  379.         
  380.         if( (cd->ibox.Left + cd->ibox.Width) > (cd->screen->LeftEdge + cd->screen->Width) )
  381.              cd->ibox.Left = cd->screen->LeftEdge + cd->screen->Width - cd->ibox.Width;
  382.               
  383.         if( !cd->ibox.Top )
  384.           {
  385.              if( !(cd->flags & TOP_PASSED) )
  386.                   cd->ibox.Top  = DEFAULT_TOP_EDGE;
  387.           }
  388.           
  389.         if( (cd->ibox.Top + cd->ibox.Height) > (cd->screen->TopEdge + cd->screen->Height) )
  390.              cd->ibox.Top = cd->screen->TopEdge + cd->screen->Height - cd->ibox.Height;
  391.          
  392.         cd->flags >>= 9;
  393.         cd->flags <<= 9;
  394.         
  395.         if( (cd->flags & BG_TRANS) ||
  396.             (cd->flags & BG_PIC) )
  397.           {
  398.               cd->bm = AllocBitMap( cd->ibox.Width, cd->ibox.Height,
  399.                                     cd->screen->RastPort.BitMap->Depth,
  400.                                     BMF_MINPLANES, cd->screen->RastPort.BitMap );
  401.                                     
  402.               if( cd->flags & BG_PIC )
  403.                 {                                   
  404.                    if( GetBitMap(cd, cd->picture) )
  405.                      {
  406.                         cd->flags >>= 11;
  407.                         cd->flags <<= 11;
  408.                      }
  409.                    else
  410.                         cd->flags ^= BG_PIC;
  411.                 }
  412.                 
  413.               if( cd->flags & BG_TRANS )
  414.                 {
  415.                    cd->flags >>= 10;
  416.                    cd->flags <<= 10;
  417.                    
  418.                 } 
  419.           }
  420.         
  421.         if( !(cd->flags & BG_PIC) &&
  422.             !(cd->flags & BG_TRANS) )
  423.              cd->flags |= BG_PLAIN;
  424.         
  425.         if( cd->flags & BORDER_OFF )
  426.           {
  427.              if( cd->flags & BORDER )
  428.                   cd->flags ^= BORDER;
  429.              cd->flags ^= BORDER_OFF;
  430.           }
  431.         else
  432.           {
  433.              if( cd->flags & BORDER_ON )
  434.                {
  435.                   cd->flags |= BORDER;
  436.                   cd->flags ^= BORDER_ON;
  437.                }
  438.           }
  439.          
  440.         cd->day = 1;
  441.                
  442.         if( (cd->notify_port = CreateMsgPort()) )
  443.           {
  444.              cd->notify = AddNotifyRequest( DN_OPUS_QUIT | DN_OPUS_HIDE | DN_OPUS_SHOW,
  445.                                             NULL, cd->notify_port );
  446.           }
  447.         
  448.         InitPopMenu( cd );  
  449.              
  450.         ++cd->module->lib_OpenCnt;        
  451.         return 1;
  452. }  
  453.  
  454. /********************************************************************/
  455.  
  456. BOOL HandleIDCMP( ClockData *cd ) 
  457. {  
  458.      while( (cd->inmsg = GT_GetIMsg(cd->win->UserPort)) )
  459.        {
  460.           cd->imsg = *cd->inmsg;
  461.           GT_ReplyIMsg( cd->inmsg ); 
  462.                       
  463.           switch( cd->imsg.Class )
  464.             {
  465.                case IDCMP_REFRESHWINDOW:
  466.                     
  467.                     refresh_callback( 0, cd->win, cd );                    
  468.                     break;
  469.                     
  470.                case IDCMP_CHANGEWINDOW:
  471.                                                       
  472.                     cd->ibox.Left = cd->win->LeftEdge;
  473.                     cd->ibox.Top = cd->win->TopEdge;
  474.                     cd->ibox.Width = cd->win->Width;
  475.                     cd->ibox.Height = cd->win->Height;
  476.                                       
  477.                     CloseWin( cd );
  478.                                                              
  479.                     OpenWin( cd );
  480.                     
  481.                     break;
  482.                
  483.                case IDCMP_ACTIVEWINDOW:               
  484.                case IDCMP_INACTIVEWINDOW:
  485.                     
  486.                     cd->day = 1;
  487.                     
  488.                     BorderDraw( cd );
  489.                     PrintTime( cd );
  490.                     break;
  491.                 
  492.                case IDCMP_CLOSEWINDOW:
  493.                     
  494.                     if( cd->req )
  495.                          break; 
  496.                          
  497.                     return TRUE;                    
  498.                     
  499.                case IDCMP_MOUSEBUTTONS:
  500.                                                  
  501.                     if( !cd->req && cd->imsg.Code == SELECTDOWN &&
  502.                          DoMenu(cd) )  
  503.                          return TRUE;
  504.                     break;                  
  505.             }                
  506.        }      
  507.      return FALSE;    
  508. }
  509.  
  510.  
  511. BOOL DoMenu( ClockData *cd )
  512. {
  513.    
  514.      if( DoPopUpMenu(cd->win, &cd->popmenu, &cd->popitem, SELECTDOWN) != -1 )
  515.        {
  516.           switch( cd->popitem->id )
  517.             {
  518.                case POPID_SOUND:       cd->flags ^= SOUND;
  519.                                        //if( cd->flags
  520.                                        break;
  521.                                        
  522.                case POPID_FIX_IT:      WriteConfig( cd );
  523.                                        break;
  524.                                        
  525.                case POPID_BORDER:
  526.                                        if( cd->popitem->flags & POPUPF_CHECKED )
  527.                                             cd->flags |= BORDER;
  528.                                        else
  529.                                             cd->flags ^= (cd->flags & BORDER) ? BORDER : 0;
  530.                                                            
  531.                                        BorderDraw( cd );
  532.                                        break;
  533.                                                                                                                     
  534.                case POPID_AUTOSTART:                                                         
  535.                                        SetEnv( CLOCKSTARTVAR, (cd->popitem->flags & POPUPF_CHECKED) ? "1" : "0", TRUE );
  536.                                        break;
  537.                                                            
  538.                case POPID_CHANGE_FONT:
  539.                                        cd->ibox.Left = cd->win->LeftEdge;
  540.                                        cd->ibox.Top = cd->win->TopEdge;
  541.                                                                                                                     
  542.                                        CloseWin( cd );
  543.                                                            
  544.                                        if( cd->bm )
  545.                                          {
  546.                                             FreeBitMap( cd->bm );
  547.                                             cd->bm = NULL;
  548.                                          }                                       
  549.                                                                 
  550.                                        FRequest( cd );
  551.                                        GetSizes( cd );
  552.                                                            
  553.                                        if( cd->flags & BG_PIC ||
  554.                                            cd->flags & BG_TRANS )
  555.                                          {
  556.                                             cd->bm = AllocBitMap( cd->ibox.Width, cd->ibox.Height,
  557.                                                                   cd->screen->RastPort.BitMap->Depth,
  558.                                                                   BMF_MINPLANES, cd->screen->RastPort.BitMap );
  559.                                                                 
  560.                                             if( cd->flags & BG_PIC )
  561.                                                  GetBitMap( cd, cd->picture );                                                              
  562.                                          }
  563.                                        
  564.                                        OpenWin( cd );
  565.                                        break;
  566.                                                            
  567.                case POPID_CLOSE:
  568.                                        return TRUE;
  569.                                                            
  570.                case POPID_ALARMSET:    GetAlarm( cd );
  571.                                        break;                          
  572.                                                            
  573.                case POPID_ALARMONOFF:
  574.                                        if( cd->popitem->flags & POPUPF_CHECKED )
  575.                                             cd->flags |= ALARM;
  576.                                        else
  577.                                             cd->flags ^= ALARM;
  578.                                        break;
  579.                                                            
  580.                case POPID_ABOUT:
  581.                                        if( !cd->req )
  582.                                             About( cd );
  583.                                        break;
  584.                                                            
  585.                case POPID_PLAIN:       
  586.                                        cd->flags = (cd->flags & BORDER) ? BORDER|BG_PLAIN : BG_PLAIN;
  587.                                        
  588.                                        if( cd->bm )
  589.                                          {
  590.                                             FreeBitMap( cd->bm );
  591.                                             cd->bm = NULL;
  592.                                          }
  593.                                                            
  594.                                        BorderDraw( cd );
  595.                                        DisableOther( &cd->popmenu, POPID_PLAIN, POPID_PICTURE, cd->popitem->id );
  596.                                        break;
  597.                                    
  598.                case POPID_TRANSPARENT:
  599.                                        cd->flags = (cd->flags & BORDER) ? BORDER|BG_TRANS : BG_TRANS;
  600.                                        CloseWin( cd );
  601.                                                                                                              
  602.                                        if( !cd->bm )
  603.                                          {
  604.                                             cd->bm = AllocBitMap( cd->ibox.Width, cd->ibox.Height,
  605.                                                                   cd->screen->RastPort.BitMap->Depth,
  606.                                                                   BMF_MINPLANES, cd->screen->RastPort.BitMap );
  607.                                          }
  608.                                                                                                                        
  609.                                        OpenWin( cd );
  610.                                        DisableOther( &cd->popmenu, POPID_PLAIN, POPID_PICTURE, cd->popitem->id );
  611.                                        break;
  612.                                    
  613.                case POPID_PICTURE:                                                              
  614.                                        CloseWin( cd );
  615.                                                                                                              
  616.                                        if( (PicRequest(cd) && cd->picture[0]) )
  617.                                          {
  618.                                             if( !cd->bm )
  619.                                               {
  620.                                                  cd->bm = AllocBitMap( cd->ibox.Width, cd->ibox.Height,
  621.                                                                        cd->screen->RastPort.BitMap->Depth,
  622.                                                                        BMF_MINPLANES, cd->screen->RastPort.BitMap );
  623.                                               }
  624.                                             
  625.                                             if( GetBitMap(cd, cd->picture) )
  626.                                               {
  627.                                                  cd->flags = (cd->flags & BORDER) ? BORDER|BG_PIC : BG_PIC;
  628.                                                  DisableOther( &cd->popmenu, POPID_PLAIN, POPID_PICTURE, cd->popitem->id );
  629.                                               }
  630.                                             else
  631.                                                  cd->popitem->flags ^= POPUPF_CHECKED;
  632.                                          }
  633.                                        else
  634.                                          {
  635.                                             if( cd->flags & BG_PIC )
  636.                                                  GetPopUpItem( &cd->popmenu, POPID_PICTURE )->flags |= POPUPF_CHECKED;
  637.                                             else
  638.                                                  cd->popitem->flags ^= POPUPF_CHECKED;
  639.                                          }
  640.                                        OpenWin( cd );
  641.                                        break;                                      
  642.             }
  643.        }  
  644.      return FALSE;
  645. }
  646.  
  647. /********************************************************************/
  648. // WINDOW STUFF 
  649.  
  650. struct Window *OpenWin( ClockData *cd )
  651. {   
  652.      if( (cd->pubscr = FindPubScreen(cd->screen, TRUE)) )
  653.        {        
  654.           if( cd->bm && (cd->flags & BG_TRANS) )
  655.                BltBitMap( cd->screen->RastPort.BitMap,
  656.                           cd->ibox.Left, cd->ibox.Top,
  657.                           cd->bm,
  658.                           0, 0,
  659.                           cd->ibox.Width, cd->ibox.Height,
  660.                           ABNC|ABC,
  661.                           -1, NULL );  
  662.              
  663.           cd->win = OpenWindowTags( NULL,
  664.                                     WA_Left,    cd->ibox.Left,
  665.                                     WA_Top,     cd->ibox.Top,
  666.                                     WA_Height,  cd->ibox.Height,
  667.                                     WA_Width,   cd->ibox.Width,
  668.                                     
  669.                                     WA_Gadgets, &gadgets[0],
  670.                                     
  671.                                     WA_Flags,   WFLG_BORDERLESS    | WFLG_NEWLOOKMENUS    |
  672.                                                 WFLG_SIMPLE_REFRESH,
  673.                                                 
  674.                                     WA_IDCMP,   IDCMP_CHANGEWINDOW | IDCMP_REFRESHWINDOW  |
  675.                                                 IDCMP_ACTIVEWINDOW | IDCMP_INACTIVEWINDOW |
  676.                                                 IDCMP_CLOSEWINDOW  | IDCMP_MOUSEBUTTONS,
  677.                                                 
  678.                                     WA_AutoAdjust, TRUE,                                  
  679.                                     WA_ScreenTitle, VERSION_STRING,
  680.                                     WA_PubScreen, cd->pubscr->psn_Screen,
  681.                                     
  682.                                     TAG_DONE );
  683.                      
  684.           BorderDraw( cd );
  685.             
  686.           cd->day = 1;
  687.           PrintTime( cd );
  688.              
  689.           UnlockPubScreen( NULL, cd->pubscr->psn_Screen );          
  690.        }      
  691.      return cd->win;
  692. }
  693.  
  694. void CloseWin( ClockData *cd )
  695. {
  696.      if( cd->req )
  697.        {
  698.           FreeSysRequest( cd->req );
  699.           cd->req = NULL;
  700.        }
  701.             
  702.      CloseWindow( cd->win );    
  703. }
  704.  
  705.  
  706. // USED FOR REFRESH ON IDCMP-MESSAGES *AND* FOR THE POPUP-MENU
  707.  
  708. void __asm refresh_callback( register __d0 ULONG type,
  709.                              register __a0 struct Window *win,
  710.                              register __a1 ClockData *cd ) 
  711. {
  712.      GT_BeginRefresh( win );
  713.         
  714.      cd->day = 1;
  715.      BorderDraw( cd );
  716.      PrintTime( cd );
  717.               
  718.      GT_EndRefresh( win, TRUE );
  719. }
  720.  
  721. /********************************************************************/
  722.  
  723. void BorderDraw( ClockData *cd )
  724. {                        
  725.       if( cd->bm )
  726.            BltBitMapRastPort( cd->bm,
  727.                               0, 0, 
  728.                               cd->win->RPort,
  729.                               0, 0,
  730.                               cd->win->Width, cd->win->Height,
  731.                               ABNC|ABC );
  732.       else
  733.            EraseRect( cd->win->RPort, 
  734.                       0, 0,
  735.                       cd->win->Width, cd->win->Height );
  736.                      
  737.       if( !(cd->flags & BORDER) )
  738.            return;
  739.               
  740.      SetAPen( cd->win->RPort, 1 );
  741.      Move( cd->win->RPort, 1, cd->win->Height - 1 );
  742.      Draw( cd->win->RPort, cd->win->Width-1, cd->win->Height - 1 );
  743.      Draw( cd->win->RPort, cd->win->Width-1, 1 );
  744.      SetAPen( cd->win->RPort, 2 );
  745.      Move( cd->win->RPort, 0, cd->win->Height - 1 );
  746.      Draw( cd->win->RPort, 0, 0 );
  747.      Draw( cd->win->RPort, cd->win->Width-1, 0 );         
  748. }
  749.  
  750. void PrintTime( ClockData *cd )
  751. {        
  752.      DateStamp( &cd->date );
  753.      
  754.      cd->hour = UDivMod32( cd->date.ds_Minute, 60 );
  755.                                                  
  756.      cd->minute = getreg(REG_D1);
  757.      
  758.      if( cd->day && cd->day != cd->date.ds_Days )
  759.        {
  760.           cd->dt.dat_Stamp   = cd->date;
  761.           cd->dt.dat_Format  = FORMAT_DOS;
  762.           cd->dt.dat_Flags   = 0;
  763.           cd->dt.dat_StrDay  = cd->itext[1].IText;
  764.           cd->dt.dat_StrDate = cd->itext[0].IText;
  765.           cd->dt.dat_StrTime = 0;
  766.                          
  767.           DateToStr( &cd->dt );
  768.        }
  769.        
  770.      if( cd->bm )
  771.           BltBitMapRastPort( cd->bm, 
  772.                              cd->itext[2].LeftEdge, cd->itext[2].TopEdge+10,
  773.                              cd->win->RPort,
  774.                              cd->itext[2].LeftEdge, cd->itext[2].TopEdge+10,
  775.                              IntuiTextLength(&cd->itext[2]), (cd->itext[2].ITextFont ? cd->itext[2].ITextFont->ta_YSize : cd->screen->Font->ta_YSize),
  776.                              ABNC|ABC );
  777.      else
  778.        {
  779.                                           
  780.           EraseRect( cd->win->RPort, 
  781.                      2, 8,
  782.                      cd->win->Width - 4, 
  783.                      ( (cd->day != cd->date.ds_Days) ? cd->win->Height - 2 : 9 + (cd->itext[2].ITextFont ? cd->itext[2].ITextFont->ta_YSize : cd->screen->Font->ta_YSize)) );            
  784.            
  785.        }
  786.                
  787.      sprintf( cd->itext[2].IText, "%02ld%lc%02ld", cd->hour, UDivMod32(cd->date.ds_Tick, TICKS_PER_SECOND)%2 ? ':' : '.', cd->minute ); 
  788.         
  789.      for( cd->running = 0; cd->running < 3; cd->running++ )
  790.        {
  791.           cd->itext[cd->running].LeftEdge = (cd->win->Width - IntuiTextLength(&cd->itext[cd->running]))/2;
  792.           cd->itext[2-cd->running].TopEdge  = (cd->win->Height-10)/3*cd->running;
  793.        }     
  794.         
  795.      cd->running = 2;      
  796.                   
  797.      if( cd->day != cd->date.ds_Days )
  798.        {
  799.           cd->running = 0; 
  800.           
  801.           if( cd->bm )
  802.                BltBitMapRastPort( cd->bm, 
  803.                                   2, 8,
  804.                                   cd->win->RPort,
  805.                                   2, 8,
  806.                                   cd->win->Width-4, cd->win->Height-12,
  807.                                   ABNC|ABC );
  808.                      
  809.           cd->day = cd->date.ds_Days;
  810.        }
  811.            
  812.      PrintIText( cd->win->RPort, &cd->itext[cd->running], 0, 10 );
  813.      
  814.      BeepBeep( cd );
  815. }  
  816.  
  817. /********************************************************************/
  818.  
  819. void About( ClockData *cd )
  820. {
  821.      cd->es.es_StructSize   = sizeof( struct EasyStruct );
  822.      cd->es.es_Title        = DOpusGetString( locale, MSG_TITLE );
  823.      cd->es.es_TextFormat   = DOpusGetString( locale, MSG_CLOCKABOUT );
  824.      cd->es.es_GadgetFormat = DOpusGetString( locale, MSG_CLOCKOK );
  825.      
  826.      cd->req = BuildEasyRequestArgs( cd->win, &cd->es, IDCMP_GADGETUP, NULL );
  827. }
  828.  
  829.  
  830. void GetSizes( ClockData *cd )
  831. { 
  832.         strcpy( cd->itext[2].IText, "  88-FEB-88  " );
  833.        
  834.         cd->ibox.Width  = IntuiTextLength( &cd->itext[2] ) + 4;
  835.               
  836.         cd->ibox.Height = (cd->itext[2].ITextFont ? cd->itext[2].ITextFont->ta_YSize : cd->screen->Font->ta_YSize) * 3 + 18;
  837.               
  838. }
  839.  
  840. /********************************************************************/
  841.  
  842. void FRequest( ClockData *cd )
  843. {
  844.      if( (cd->freq = AllocAslRequest(ASL_FontRequest, NULL)) )
  845.        {
  846.           if( AslRequestTags( cd->freq,
  847.                               ASLFO_Screen,       cd->screen,
  848.                               
  849.                               ASLFO_DoFrontPen,   TRUE,
  850.                               ASLFO_DoBackPen,    TRUE,
  851.                               ASLFO_DoDrawMode,   TRUE,
  852.                               ASLFO_DoStyle,      TRUE,
  853.                               
  854.                               ASLFO_TitleText, DOpusGetString(locale,  MSG_CHOOSEFONT),
  855.                               
  856.                               TAGIF(cd->fontname[0],  ASLFO_InitialName),  cd->fontname,
  857.                               TAGIF(cd->fontname[0],  ASLFO_InitialSize),  cd->txtattr.ta_YSize,
  858.                               TAGIF(cd->fontname[0],  ASLFO_InitialStyle), cd->txtattr.ta_Style,
  859.                               TAGIF(cd->fontname[0],  ASLFO_InitialFlags), cd->txtattr.ta_Flags,
  860.                               ASLFO_InitialFrontPen, (cd->fontname[0] ? cd->itext[0].FrontPen : 1),
  861.                          
  862.                               TAGIF(cd->fontname[0],  ASLFO_InitialBackPen),   cd->itext[0].BackPen,
  863.                               TAGIF(cd->fontname[0],  ASLFO_InitialDrawMode),  cd->itext[0].DrawMode,
  864.                               TAG_DONE ) )
  865.             {
  866.                cd->txtattr = cd->freq->fo_Attr;
  867.                      
  868.                     if( cd->txtfont )
  869.                       {
  870.                          CloseFont( cd->txtfont );
  871.                          
  872.                       }
  873.                          
  874.                     strcpy( cd->fontname, cd->freq->fo_Attr.ta_Name );
  875.                     cd->txtattr.ta_Name = cd->fontname;
  876.                     cd->txtfont = OpenDiskFont( &cd->txtattr );
  877.                    
  878.                for( cd->running = 0; cd->running < 3; cd->running++ )
  879.                  {
  880.                     cd->itext[cd->running].ITextFont = &cd->txtattr;
  881.                     cd->itext[cd->running].FrontPen  = cd->freq->fo_FrontPen;
  882.                     cd->itext[cd->running].BackPen   = cd->freq->fo_BackPen;
  883.                     cd->itext[cd->running].DrawMode  = cd->freq->fo_DrawMode;
  884.                     
  885.                  }               
  886.             }
  887.          FreeAslRequest( cd->freq );
  888.        }
  889. }
  890.  
  891.  
  892. BOOL PicRequest( ClockData *cd )
  893. {
  894.      STRPTR ptr;
  895.      
  896.      if( (cd->freq = AllocAslRequest(ASL_FileRequest, NULL)) )
  897.        {
  898.           cd->buffer[0] = 0;
  899.           
  900.           if( cd->picture[0] )
  901.             {
  902.                strcpy( cd->buffer, (ptr = FilePart(cd->picture)) );
  903.                *ptr = 0;
  904.             }
  905.           
  906.           cd->running = FALSE;
  907.           
  908.           while( !(cd->running = AslRequestTags( (struct FileRequester *) cd->freq,
  909.                                                  ASLFR_Screen,       cd->screen,                                                                                     
  910.                                                  ASLFR_TitleText, DOpusGetString(locale,  MSG_CHOOSEPIC),
  911.                                                  TAGIF(cd->buffer[0], ASLFR_InitialFile), cd->buffer,
  912.                                                  TAGIF(cd->picture[0], ASLFR_InitialDrawer), cd->picture,
  913.                                                  TAG_DONE )) && IoErr() );
  914.           if( cd->running )
  915.             {
  916.                AddPart( cd->picture, ((struct FileRequester *) cd->freq)->fr_Drawer, 256 );
  917.                AddPart( cd->picture, ((struct FileRequester *) cd->freq)->fr_File, 256 );
  918.             }  
  919.           else
  920.             {
  921.                if( cd->buffer[0] )
  922.                     AddPart( cd->picture, cd->buffer, 256 );
  923.             }
  924.           
  925.           FreeAslRequest( cd->freq );            
  926.        }
  927.        
  928.      return (BOOL) cd->running;
  929. }
  930.  
  931. void DisableOther( PopUpMenu *popmenu, ULONG start, ULONG end, ULONG exclude )
  932. {
  933.      ULONG counter;
  934.      PopUpItem *item;
  935.      
  936.      GetPopUpItem( popmenu, exclude )->flags |= POPUPF_CHECKED;
  937.       
  938.      for( counter = start; counter <= end; counter++ )
  939.        {
  940.           if( counter != exclude &&
  941.               ( item = GetPopUpItem(popmenu, counter) )->flags & POPUPF_CHECKED )
  942.               item->flags ^= POPUPF_CHECKED;
  943.        } 
  944. }
  945.  
  946. /********************************************************************/
  947.  
  948. BOOL GetBitMap( ClockData *cd, STRPTR name )
  949. {
  950.      cd->running = FALSE;  
  951.      
  952.      if( cd->bm )
  953.        {
  954.           if( strlen(name) )
  955.             {                                            
  956.                if( (cd->obj = NewDTObject(name,
  957.                                           DTA_SourceType,        DTST_FILE,
  958.                                           PDTA_Screen,           cd->screen,
  959.                                           OBP_Precision,         PRECISION_EXACT,
  960.                                           DTA_GroupID,           GID_PICTURE,
  961.                                           PDTA_FreeSourceBitMap, TRUE,
  962.                                           TAG_DONE)) )
  963.                  {                                                        
  964.                     if( DoMethod( cd->obj, DTM_PROCLAYOUT, NULL, 1 ) )
  965.                       {                                                                          
  966.                          GetDTAttrs( cd->obj,
  967.                                      PDTA_DestBitMap,   &cd->sourcebm,
  968.                                      PDTA_BitMapHeader, &cd->sourcebmhead,
  969.                                      TAG_DONE );
  970.                                               
  971.                          cd->bsa.bsa_XSrcFactor  = cd->bsa.bsa_SrcWidth = cd->sourcebmhead->bmh_Width;
  972.                          cd->bsa.bsa_YSrcFactor  = cd->bsa.bsa_SrcHeight = cd->sourcebmhead->bmh_Height;
  973.                                                       
  974.                          cd->bsa.bsa_XDestFactor = cd->ibox.Width;
  975.                          cd->bsa.bsa_YDestFactor = cd->ibox.Height;
  976.                          cd->bsa.bsa_SrcBitMap   = cd->sourcebm;
  977.                          cd->bsa.bsa_DestBitMap  = cd->bm;
  978.                            
  979.                          BitMapScale( &cd->bsa );
  980.                          cd->running = TRUE;
  981.                       }
  982.                     
  983.                     DisposeDTObject( cd->obj );
  984.                     cd->obj = NULL;
  985.                  }               
  986.             }         
  987.        }
  988.      
  989.      return (BOOL) cd->running;  
  990. }
  991.  
  992. void BeepBeep( ClockData *cd )
  993. {
  994.      
  995.           
  996.      if( cd->hour > 12 )
  997.          cd->hour -= 12;
  998.      
  999.      switch( cd->minute )
  1000.        {
  1001.           case  0: if( (cd->flags & SOUND) && !(cd->flags & WRING_DONE) &&
  1002.                         (cd->sound = NewDTObject( "DOpus5:Sounds/Hour.snd",
  1003.                                                   DTA_GroupID, GID_SOUND,
  1004.                                                   TAG_DONE)) )
  1005.                      {
  1006.                         SetAttrs( cd->sound, SDTA_Cycles, !cd->hour ? 12 : cd->hour, TAG_DONE );
  1007.                         DoMethod( cd->sound, DTM_TRIGGER, NULL, STM_PLAY, TAG_DONE );
  1008.                         cd->flags |= WRING_DONE;
  1009.                      }
  1010.                    break;          
  1011.           
  1012.           case  1: if( cd->flags & WRING_DONE )
  1013.                      {
  1014.                         DisposeDTObject( cd->sound );
  1015.                         cd->flags ^= WRING_DONE;
  1016.                         cd->sound = NULL;                  
  1017.                      }
  1018.                    break;
  1019.           
  1020.           case 15:
  1021.           case 30:          
  1022.           case 45: if( (cd->flags & SOUND) && !(cd->flags & WRING_DONE) &&
  1023.                         (cd->sound = NewDTObject( "DOpus5:Sounds/Quarter.snd",
  1024.                                                    DTA_GroupID, GID_SOUND,
  1025.                                                    TAG_DONE)) )
  1026.                      {
  1027.                         SetAttrs( cd->sound, SDTA_Cycles, cd->minute/15, TAG_DONE );
  1028.                         DoMethod( cd->sound, DTM_TRIGGER, NULL, STM_PLAY, TAG_DONE );
  1029.                         cd->flags |= WRING_DONE;
  1030.                      }
  1031.                    break;
  1032.           
  1033.           case 16:
  1034.           case 31:
  1035.           case 46: if( cd->flags & WRING_DONE )
  1036.                      {
  1037.                         DisposeDTObject( cd->sound );
  1038.                         cd->flags ^= WRING_DONE;
  1039.                         cd->sound = NULL;                  
  1040.                      }         
  1041.                    break;
  1042.        }
  1043.      
  1044.      if( cd->flags & ALARM )
  1045.        {
  1046.           cd->woday[2] = cd->itext[2].IText[2];
  1047.                    
  1048.           if( !Strnicmp( cd->itext[2].IText, cd->woday, 4) )
  1049.             {
  1050.                if( !(cd->flags & ALARM_DONE) &&
  1051.                      cd->itext[2].IText[4] == cd->woday[4] )
  1052.                  {
  1053.                     if( (cd->flags & SOUND) && 
  1054.                         (cd->alarm = NewDTObject("DOpus5:Sounds/Alarm.snd",
  1055.                                                  DTA_GroupID, GID_SOUND,
  1056.                                                  TAG_DONE)) )
  1057.                       {
  1058.                          SetAttrs( cd->alarm, SDTA_Cycles, 3, TAG_DONE );
  1059.                          DoMethod( cd->alarm, DTM_TRIGGER, NULL, STM_PLAY, TAG_DONE );
  1060.                       }
  1061.                     LaunchCLI( ALARM_SCRIPT, NULL, NULL, NULL, NULL, NULL, NULL );
  1062.                     cd->flags |= ALARM_DONE ;
  1063.                  }
  1064.                
  1065.                if( (cd->flags & ALARM_DONE) &&
  1066.                    cd->itext[2].IText[4] == cd->woday[4] + 1 )
  1067.                  {
  1068.                     DisposeDTObject( cd->alarm );
  1069.                     cd->flags ^= ALARM_DONE;
  1070.                     cd->alarm = NULL;
  1071.                  }
  1072.             }         
  1073.        } 
  1074. }
  1075.  
  1076.  
  1077. void GetAlarm( ClockData *cd )
  1078. {
  1079.    cd->ncfg.nw_Parent = cd->win;
  1080.    cd->ncfg.nw_Title  = VERSION_STRING;
  1081.    cd->ncfg.nw_Dims   = &cfgwin; 
  1082.    cd->ncfg.nw_Locale = locale;
  1083.    cd->ncfg.nw_Port   = NULL;
  1084.    cd->ncfg.nw_Flags  = WINDOW_REQ_FILL | WINDOW_AUTO_KEYS | WINDOW_NO_CLOSE;
  1085.    cd->ncfg.nw_Font   = cd->txtfont;
  1086.    
  1087.    cd->time_req = OpenConfigWindow( &cd->ncfg );      
  1088.    
  1089.    cd->olist = AddObjectList( cd->time_req, winobjects ); 
  1090.    
  1091.    strncpy( cd->buffer, cd->woday, 2 )[2] = NULL;
  1092.    StrToLong( cd->buffer, (LONG *)&cd->running );
  1093.    cd->h = (UBYTE) cd->running;
  1094.    SetGadgetValue( cd->olist, GADGET_ID_HOURS, cd->h*59/23 );
  1095.    
  1096.    StrToLong( &cd->woday[3], (LONG *)&cd->running );
  1097.    cd->min = (UBYTE) cd->running;
  1098.    SetGadgetValue( cd->olist, GADGET_ID_MINUTES, cd->min ); 
  1099.    
  1100.    sprintf( cd->buffer, "%02ld.%02ld", cd->h, cd->min ); 
  1101.    SetGadgetValue( cd->olist, GADGET_ID_STRING, (ULONG) cd->buffer );             
  1102.    
  1103. }
  1104.  
  1105. BOOL HandleOwnRequest( ClockData *cd )
  1106. {
  1107.    cd->running = FALSE;
  1108.    
  1109.    if( cd->time_req )
  1110.      {              
  1111.         while( (cd->inmsg = GetWindowMsg( cd->time_req->UserPort)) )
  1112.           {
  1113.              switch( cd->inmsg->Class )
  1114.                {
  1115.                   case IDCMP_MOUSEMOVE: //slider
  1116.                                         switch( GET_ID(cd->inmsg) )
  1117.                                           {
  1118.                                              case GADGET_ID_HOURS:
  1119.                                                                    cd->h = cd->inmsg->Code*23/59;
  1120.                                                                    break;
  1121.                                              case GADGET_ID_MINUTES:
  1122.                                                                    cd->min = cd->inmsg->Code;
  1123.                                                                    break;
  1124.                                           }
  1125.                                         
  1126.                                         sprintf( cd->buffer, "%02ld.%02ld",
  1127.                                                  cd->h,
  1128.                                                  cd->min );
  1129.                                         SetGadgetValue( cd->olist, GADGET_ID_STRING, (ULONG) cd->buffer );
  1130.                                         break;
  1131.                   
  1132.                   case IDCMP_GADGETUP:
  1133.                                         switch( GET_ID(cd->inmsg) )
  1134.                                           {
  1135.                                              case GADGET_ID_OK:
  1136.                                                                     sprintf( cd->woday, "%02ld.%02ld",
  1137.                                                                              cd->h,
  1138.                                                                              cd->min );
  1139.                                                                     cd->flags |= ALARM;
  1140.                                                                     GetPopUpItem( &cd->popmenu, POPID_ALARMONOFF )->flags |= POPUPF_CHECKED;
  1141.                                                                     
  1142.                                                                     if( (cd->flags & ALARM_DONE) )
  1143.                                                                       {
  1144.                                                                          DisposeDTObject( cd->alarm );
  1145.                                                                          cd->flags ^= ALARM_DONE;
  1146.                                                                          cd->alarm = NULL;
  1147.                                                                       }
  1148.                                                                       
  1149.                                              case GADGET_ID_CANCEL:
  1150.                                                                     cd->running = TRUE;
  1151.                                                                     break;
  1152.                                           }
  1153.                                         break;
  1154.                }
  1155.              ReplyWindowMsg( cd->inmsg); 
  1156.           }   
  1157.      }
  1158.    return (BOOL) cd->running;
  1159. }
  1160.  
  1161. BOOL HandleIPC( ClockData *cd )
  1162. {
  1163.      cd->running = FALSE;
  1164.      
  1165.      while( (cd->ipcmsg = (APTR) GetMsg(cd->ipc->command_port)) )
  1166.        {
  1167.           if( cd->ipcmsg->command & CLOCK_QUIT )
  1168.             {
  1169.                cd->running = TRUE;
  1170.                IPC_Reply( cd->ipcmsg );
  1171.                break;
  1172.             }
  1173.             
  1174.           cd->day = 1;
  1175.                            
  1176.           if( cd->ipcmsg->command & BORDER )
  1177.             {
  1178.                cd->popitem = GetPopUpItem( &cd->popmenu, POPID_BORDER );
  1179.                               
  1180.                if( cd->ipcmsg->command & BORDER_ON )
  1181.                  {
  1182.                     cd->flags |= BORDER;
  1183.                     cd->popitem->flags |= POPUPF_CHECKED;
  1184.                  }
  1185.                else   
  1186.                  {
  1187.                     if( cd->flags & BORDER )
  1188.                       {
  1189.                          cd->flags ^= BORDER;
  1190.                          cd->popitem->flags ^= POPUPF_CHECKED;
  1191.                       }
  1192.                  }
  1193.                  
  1194.                if( cd->win )     
  1195.                     BorderDraw( cd );
  1196.             }
  1197.                            
  1198.           if( cd->ipcmsg->command & MODE_PASSED )
  1199.             {
  1200.                cd->itext[2].DrawMode = cd->itext[1].DrawMode = 
  1201.                cd->itext[0].DrawMode = ((CPrefsData *) cd->ipcmsg->data_free)->txtattr.ta_Flags;
  1202.             }
  1203.                            
  1204.           if( cd->ipcmsg->command & STYLE_PASSED )
  1205.             {
  1206.                cd->itext[2].ITextFont->ta_Style = cd->itext[1].ITextFont->ta_Style = 
  1207.                cd->itext[0].ITextFont->ta_Style = ((CPrefsData *) cd->ipcmsg->data_free)->txtattr.ta_Style;
  1208.                               
  1209.                if( cd->win )
  1210.                     SetSoftStyle( cd->win->RPort, cd->itext[2].ITextFont->ta_Style, AskSoftStyle( cd->win->RPort));                       
  1211.             }
  1212.                          
  1213.           if( cd->ipcmsg->command & APEN_PASSED )
  1214.             {
  1215.                cd->itext[2].FrontPen = cd->itext[1].FrontPen = 
  1216.                cd->itext[0].FrontPen = ((CPrefsData *) cd->ipcmsg->data_free)->ibox.Width;
  1217.             }
  1218.                          
  1219.           if( cd->ipcmsg->command & BPEN_PASSED )
  1220.             {
  1221.                cd->itext[2].BackPen = cd->itext[1].BackPen = 
  1222.                cd->itext[0].BackPen = ((CPrefsData *) cd->ipcmsg->data_free)->ibox.Height;
  1223.             }
  1224.                            
  1225.           if( cd->ipcmsg->command & BG_PIC )
  1226.             {
  1227.                if( cd->win )
  1228.                  {
  1229.                     cd->oldbm = cd->bm;
  1230.                     
  1231.                     if( (cd->bm = AllocBitMap(cd->ibox.Width, cd->ibox.Height,
  1232.                                               cd->screen->RastPort.BitMap->Depth,
  1233.                                               BMF_MINPLANES, cd->screen->RastPort.BitMap)) )
  1234.                       {
  1235.                          if( GetBitMap(cd, ((CPrefsData *) cd->ipcmsg->data_free)->picture) )
  1236.                            {
  1237.                               FreeBitMap( cd->oldbm );                         
  1238.                               strcpy( cd->picture, ((CPrefsData *) cd->ipcmsg->data_free)->picture );
  1239.                                    
  1240.                               if( cd->flags & BG_PLAIN )
  1241.                                    cd->flags ^= BG_PLAIN;
  1242.                               
  1243.                               if( cd->flags & BG_TRANS )
  1244.                                    cd->flags ^= BG_TRANS;
  1245.                               
  1246.                               cd->flags |= BG_PIC;
  1247.                               DisableOther( &cd->popmenu, POPID_PLAIN, POPID_PICTURE, POPID_PICTURE ); 
  1248.                            }
  1249.                          else
  1250.                            {
  1251.                               FreeBitMap( cd->bm );
  1252.                               cd->bm = cd->oldbm;
  1253.                            }   
  1254.                     
  1255.                          BorderDraw( cd );
  1256.                       }
  1257.                  }
  1258.                else
  1259.                  {
  1260.                     if( strlen(((CPrefsData *) cd->ipcmsg->data_free)->picture) )
  1261.                       {
  1262.                          strcpy( cd->picture, ((CPrefsData *) cd->ipcmsg->data_free)->picture );
  1263.                                    
  1264.                               if( cd->flags & BG_PLAIN )
  1265.                                    cd->flags ^= BG_PLAIN;
  1266.                               
  1267.                               if( cd->flags & BG_TRANS )
  1268.                                    cd->flags ^= BG_TRANS;
  1269.                               
  1270.                               cd->flags |= BG_PIC;
  1271.                               DisableOther( &cd->popmenu, POPID_PLAIN, POPID_PICTURE, POPID_PICTURE );
  1272.                       }
  1273.                     
  1274.                  }
  1275.             }
  1276.             
  1277.           if( cd->ipcmsg->command & BG_PLAIN )
  1278.             {
  1279.                cd->flags |= BG_PLAIN;
  1280.                
  1281.                if( cd->flags & BG_PIC )
  1282.                     cd->flags ^= BG_PIC;
  1283.                     
  1284.                if( cd->flags & BG_TRANS )
  1285.                     cd->flags ^= BG_TRANS;
  1286.                          
  1287.                DisableOther( &cd->popmenu, POPID_PLAIN, POPID_PICTURE, POPID_PLAIN );
  1288.                
  1289.                if( cd->win )
  1290.                  {
  1291.                     if( cd->bm )
  1292.                       {
  1293.                          FreeBitMap( cd->bm );
  1294.                          cd->bm = NULL;
  1295.                       }                                                      
  1296.                     BorderDraw( cd );   
  1297.                  }            
  1298.             }
  1299.                            
  1300.           if( cd->ipcmsg->command & BG_TRANS )
  1301.             {
  1302.                cd->flags |= BG_TRANS;
  1303.                
  1304.                if( cd->flags & BG_PLAIN )
  1305.                  {
  1306.                     if( !cd->bm )
  1307.                       {
  1308.                          cd->bm = AllocBitMap( cd->ibox.Width, cd->ibox.Height,
  1309.                                                cd->screen->RastPort.BitMap->Depth,
  1310.                                                BMF_MINPLANES, cd->screen->RastPort.BitMap );
  1311.                       }
  1312.                     cd->flags ^= BG_PLAIN;
  1313.                  }
  1314.                  
  1315.                if( cd->flags & BG_PIC )
  1316.                     cd->flags ^= BG_PIC;
  1317.                     
  1318.                if( cd->win )
  1319.                  {                   
  1320.                     CloseWin( cd );
  1321.                     OpenWin( cd );
  1322.                  }
  1323.                               
  1324.                DisableOther( &cd->popmenu, POPID_PLAIN, POPID_PICTURE, POPID_TRANSPARENT );
  1325.             }
  1326.                            
  1327.           if( cd->ipcmsg->command & ALARM )
  1328.             {
  1329.                if( strlen(((CPrefsData *) cd->ipcmsg->data_free)->alarm) )
  1330.                  {
  1331.                     strcpy(cd->woday, ((CPrefsData *) cd->ipcmsg->data_free)->alarm );
  1332.                                    
  1333.                     if( !(cd->flags & ALARM) )
  1334.                       {
  1335.                          cd->flags |= ALARM;
  1336.                          GetPopUpItem( &cd->popmenu, POPID_ALARM )->flags |= POPUPF_CHECKED;
  1337.                       }
  1338.                  }
  1339.                else
  1340.                  {
  1341.                     if( cd->ipcmsg->command & ALARM_OFF )
  1342.                       {
  1343.                          if( (cd->flags & ALARM) )
  1344.                            {
  1345.                               cd->flags ^= ALARM;
  1346.                               GetPopUpItem( &cd->popmenu, POPID_ALARM )->flags ^= POPUPF_CHECKED;
  1347.                            }
  1348.                       }
  1349.                     else
  1350.                       {
  1351.                          cd->flags |= ALARM;
  1352.                          GetPopUpItem( &cd->popmenu, POPID_ALARM )->flags |= POPUPF_CHECKED;
  1353.                       }                       
  1354.                  }
  1355.             }
  1356.                            
  1357.           if( cd->ipcmsg->command & SOUND )
  1358.             {
  1359.                if( cd->ipcmsg->command & SOUND_OFF )
  1360.                  {
  1361.                     if( cd->flags & SOUND )
  1362.                       {
  1363.                          cd->flags ^= SOUND;
  1364.                          GetPopUpItem( &cd->popmenu, POPID_SOUND )->flags ^= POPUPF_CHECKED;
  1365.                       }
  1366.                  }
  1367.                else
  1368.                  {
  1369.                     cd->flags |= SOUND;
  1370.                     GetPopUpItem( &cd->popmenu, POPID_SOUND )->flags |= POPUPF_CHECKED;
  1371.                  }                           
  1372.             }                            
  1373.                          
  1374.           if( cd->ipcmsg->command & NEW_FONT || cd->ipcmsg->command & NEW_SIZE )
  1375.             {
  1376.                if( cd->ipcmsg->command & NEW_FONT &&
  1377.                    Strnicmp(&((CPrefsData *) cd->ipcmsg->data_free)->fontname[cd->running=strlen(((CPrefsData *) cd->ipcmsg->data_free)->fontname)-5], ".font", 5) )
  1378.                     strcat( ((CPrefsData *) cd->ipcmsg->data_free)->fontname, ".font" );
  1379.                
  1380.                if( cd->ipcmsg->command & NEW_FONT )
  1381.                  {
  1382.                     strcpy( cd->fontname, ((CPrefsData *) cd->ipcmsg->data_free)->fontname );
  1383.                     cd->txtattr.ta_Name = cd->fontname;
  1384.                  }
  1385.                            
  1386.                if( cd->ipcmsg->command & NEW_SIZE )
  1387.                     cd->txtattr.ta_YSize = ((CPrefsData *) cd->ipcmsg->data_free)->txtattr.ta_YSize;
  1388.                
  1389.                if( cd->txtfont )
  1390.                     CloseFont( cd->txtfont );
  1391.                          
  1392.                cd->txtfont = OpenDiskFont( &cd->txtattr );
  1393.                                               
  1394.                GetSizes( cd );
  1395.                
  1396.                if( cd->bm )
  1397.                  {
  1398.                     FreeBitMap( cd->bm );
  1399.                     cd->bm = NULL;
  1400.                  } 
  1401.                  
  1402.                if( cd->flags & BG_PIC || cd->flags & BG_TRANS )
  1403.                  {
  1404.                     cd->bm = AllocBitMap( cd->ibox.Width, cd->ibox.Height,
  1405.                                           cd->screen->RastPort.BitMap->Depth,
  1406.                                           BMF_MINPLANES, cd->screen->RastPort.BitMap );
  1407.                          
  1408.                     if( cd->flags & BG_PIC )
  1409.                          GetBitMap( cd, cd->picture );
  1410.                  }
  1411.                     
  1412.                if( cd->win )
  1413.                  {
  1414.                     cd->ibox.Left = cd->win->LeftEdge;
  1415.                     cd->ibox.Top = cd->win->TopEdge;
  1416.                
  1417.                     CloseWin( cd );
  1418.                                  
  1419.                     OpenWin( cd );
  1420.                  }
  1421.             }
  1422.          
  1423.           if( cd->win )             
  1424.                PrintTime( cd );
  1425.                
  1426.           cd->running = FALSE;            
  1427.           IPC_Reply( cd->ipcmsg );         
  1428.        } 
  1429.        
  1430.      return (BOOL) cd->running;
  1431. }
  1432.  
  1433. void InitPopMenu( ClockData *cd )
  1434. {
  1435.      GetVar( CLOCKSTARTVAR, cd->buffer, 4, LV_VAR|GVF_GLOBAL_ONLY );
  1436.                     
  1437.         NewList( (struct List *) &cd->popmenu.item_list );
  1438.         NewList( (struct List *) &cd->submenu );
  1439.         NewList( (struct List *) &cd->subtime );
  1440.         
  1441.         cd->popmenu.flags = POPUPMF_REFRESH;
  1442.         cd->popmenu.callback = &refresh_callback;
  1443.         
  1444.         cd->popmenu.locale = locale;
  1445.         
  1446.         for( cd->running = MSG_POPSUB_ALARMSET; cd->running <= MSG_POPSUB_ALARMONOFF; cd->running++ )
  1447.            {
  1448.               if( (cd->popitem = AllocMemH(mempool, sizeof(PopUpItem))) )
  1449.                 {
  1450.                    cd->popitem->item_name = (char *) cd->running;
  1451.                    cd->popitem->flags = POPUPF_LOCALE;
  1452.                               
  1453.                    if( cd->running == MSG_POPSUB_ALARMONOFF )
  1454.                         cd->popitem->flags |= POPUPF_CHECKIT | (cd->flags & ALARM ? POPUPF_CHECKED : NULL);
  1455.                    
  1456.                    cd->popitem->id = cd->running;
  1457.                    
  1458.                    AddTail( (struct List *) &cd->subtime,
  1459.                             (struct Node *) &cd->popitem->node );
  1460.                 }
  1461.            }
  1462.         
  1463.         for( cd->running = MSG_POPSUB_PLAIN; cd->running <= MSG_POPSUB_PICTURE; cd->running++ )
  1464.            {
  1465.               if( (cd->popitem = AllocMemH(mempool, sizeof(PopUpItem))) )
  1466.                 {
  1467.                    cd->popitem->item_name = (char *) cd->running;
  1468.                    cd->popitem->flags = POPUPF_LOCALE|POPUPF_CHECKIT;
  1469.                    
  1470.                    if( cd->flags & (1 << (cd->running-MSG_POPSUB_PLAIN+9)) ) 
  1471.                         cd->popitem->flags |= POPUPF_CHECKED;
  1472.                    
  1473.                    cd->popitem->id = cd->running;
  1474.                    
  1475.                    AddTail( (struct List *) &cd->submenu,
  1476.                             (struct Node *) &cd->popitem->node );
  1477.                 }
  1478.            }
  1479.                 
  1480.         for( cd->running = MSG_POP_CHANGEBACK; cd->running <= MSG_POP_ABOUT; cd->running++ )
  1481.            {
  1482.               if( (cd->popitem = AllocMemH(mempool, sizeof(PopUpItem))) )
  1483.                 {
  1484.                    cd->popitem->item_name = (char *) cd->running;
  1485.                    cd->popitem->flags = POPUPF_LOCALE;
  1486.                    
  1487.                    switch( cd->running )
  1488.                      {
  1489.                         case MSG_POP_CHANGEBACK:
  1490.                                                  cd->popitem->flags |= POPUPF_SUB;
  1491.                                                  cd->popitem->data = &cd->submenu;
  1492.                                                  break;
  1493.                         
  1494.                         case MSG_POP_AUTOSTART :
  1495.                                                  cd->popitem->flags |= POPUPF_CHECKIT | (cd->buffer[0] == '1' ? POPUPF_CHECKED : NULL);
  1496.                                                  break;
  1497.                         
  1498.                         case MSG_POP_BORDER    :
  1499.                                                  cd->popitem->flags |= POPUPF_CHECKIT | (cd->flags & BORDER ? POPUPF_CHECKED : NULL);
  1500.                                                  break;
  1501.                                                  
  1502.                         case MSG_POP_SOUND     :
  1503.                                                  cd->popitem->flags |= POPUPF_CHECKIT | (cd->flags & SOUND ? POPUPF_CHECKED : NULL);
  1504.                                                  break;
  1505.                                                 
  1506.                         case MSG_POP_ALARM     :
  1507.                                                  cd->popitem->flags |= POPUPF_SUB;
  1508.                                                  cd->popitem->data = &cd->subtime;
  1509.                                                  break;
  1510.                      }
  1511.                   
  1512.                    cd->popitem->id = cd->running - MSG_POP_CHANGEBACK;
  1513.                    
  1514.                    AddTail( (struct List *) &cd->popmenu.item_list,
  1515.                             (struct Node *) &cd->popitem->node );
  1516.                 }
  1517.               
  1518.               if( cd->running == MSG_POP_CHANGEFONT ||
  1519.                   cd->running == MSG_POP_ALARM ||
  1520.                   cd->running == MSG_POP_QUIT  )
  1521.                 {
  1522.                    if( (cd->popitem = AllocMemH(mempool, sizeof(PopUpItem))) )
  1523.                      {
  1524.                         cd->popitem->item_name = POPUP_BARLABEL;
  1525.                         cd->popitem->id = cd->running;
  1526.                    
  1527.                         AddTail( (struct List *) &cd->popmenu.item_list,
  1528.                                  (struct Node *) &cd->popitem->node );
  1529.                      }
  1530.                 }
  1531.            }   
  1532. }
  1533.  
  1534.